(command-line-1): Use command-execute for any command.

diff --git a/lisp/startup.el b/lisp/startup.el
index b12c204206651228a9e602d1b2519e5a157922bc..bddbeeda45b2276621a0e6888046b70fb7af3a95 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1623,7 +1623,7 @@ normal otherwise."
                                 "-funcall"
                                 "-e"))  ; what the source used to say
                  (setq tem (intern (or argval (pop command-line-args-left))))
-                 (if (arrayp (symbol-function tem))
+                 (if (commandp tem)
                      (command-execute tem)
                    (funcall tem)))